00100	BEGIN	"DECMAL"
00200		INTEGER CNT,BRK,EOF,FLG;
00300		STRING WORD,LINE;
00400		
00500		OPEN(1,"DSK",0,3,0,CNT,BRK,EOF);
00600		LOOKUP(1,"MAP",FLG);
00700		BREAKSET(1,13,"I");BREAKSET(1,10,"O");
00800		BREAKSET(1,"","N");
00900		BREAKSET(2,"0","I");
01000	
01100	WHILE TRUE DO
01200	BEGIN
01300		SETFORMAT(5,7);
01400		CNT←100;LINE←INPUT(1,1);IF EOF THEN DONE;
01450		OUTSTR(9);
01500		WHILE LENGTH(LINE)>0 DO
01600		BEGIN
01700			WORD ← SCAN(LINE,2,BRK);
01800			OUTSTR(WORD);
01900			IF BRK="0" THEN
02000		BEGIN
02100			WORD ← LINE[1 FOR 5];
02200			LINE←LINE[6 TO ∞];
02300			OUTSTR(CVS(CVO(WORD)));
02400		END;
02500		END;
02600		OUTSTR(13&10);
02700	END;
02800		RELEASE(1);
02900	END;